home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1998 November / MAC100-1998-11.ISO.7z / MAC100-1998-11.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / ﾈｯﾄﾜｰｸ⁄ｺﾐｭﾆｹｰｼｮﾝ / Jnifty Auto b3.sit / Jnifty Auto b3 / Multi IDs < prev    next >
Text File  |  1998-01-09  |  1KB  |  49 lines
  1. ************************************
  2. *   NIFTY APS beta by Ko Tsuneta   *
  3. ************************************
  4. ********************
  5. *     Multi IDs    *
  6. ********************
  7. *** Multi IDs ***
  8.   reset:
  9.   g:
  10.   ask:00:このマクロ自体はセキュリティが考慮されていないのでご注意ください。
  11.   q:
  12. 00:
  13.   input:$string$:IDをいくつ登録しますか？ (2-5)
  14.   if:01:$string$==
  15.   strwhere:#num#:[¥^2-5]:$string$
  16.   if:02:#num#==0
  17. 01:
  18.   ask:00:半角の2から5までの数値を入力してください。
  19.   q:
  20. 02:
  21.   set:#idnum#:$string$
  22.   set:$id$:
  23.   set:$pw$:
  24.   set:#i#:1
  25.   while:#i#<<#idnum#
  26. 03:
  27.     input:$temid$:#i#番目のIDを入力してください。
  28.     strlen:#length#:$temid$
  29.     if:04:#length#<>8
  30.     strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$temid$
  31.     if:05:#num#==1
  32. 04:
  33.     ask:03:このIDは無効です。もう一度入力してください。
  34.     q:
  35. 05:
  36.     set:$id$:$id$$temid$-
  37.     input:$tempd$:$temid$に対応するパスワードを入力してください。
  38.     set:$pw$:$pw$$tempd$ 
  39.     add:#i#:1
  40.     wend:
  41.   input:$temid$:#i#番目のIDを入力してください。
  42.   set:$id$:$id$$temid$
  43.   input:$tempd$:$temid$に対応するパスワードを入力してください。
  44.   set:$pw$:$pw$$tempd$
  45.   m:ログインスクリプトに次の文字列を登録してください。^m
  46.   m:  ID        ：$id$^m
  47.   m:  パスワード：$pw$^m^m
  48.   q:
  49.